﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class PerfilesFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As PerfilesBE
        Dim tmpPerfiles As PerfilesBE = New PerfilesBE()
        Try
            With tmpPerfiles
                .ClaPerfil = convertDTFromDb.ConvertString(dr.Item("ClaPerfil"))
                .DesDetaPerfil = convertDTFromDb.ConvertString(dr.Item("DesDetaPerfil"))
                .DesPerfil = convertDTFromDb.ConvertString(dr.Item("DesPerfil"))
                .Status = convertDTFromDb.ConvertString(dr.Item("Status"))
            End With
            Return tmpPerfiles
        Catch ex As Exception
            Throw
        Finally
            tmpPerfiles = Nothing
        End Try
    End Function
End Class
